!===============================================================
!
! Funzione Esponenziale		(n=2,4)
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!       -1.D0                1.D0          Limits of variable 1
!       -1.D0                1.D0             "        "      2
!       -1.D0                1.D0             "        "      3
!       -1.D0                1.D0             "        "      4

SUBROUTINE EXPONENTIAL(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      DOUBLE PRECISION :: F1
      INTEGER          :: I

      F1 = 0.0D0

      DO I=1,N
         F1 = F1+X(I)**2
      END DO

      F = -DEXP(-0.5D0*F1)

	  !F = F + 1.0d0

      RETURN

END
